#! /usr/bin/perl

use strict;
use warnings;
use Encode;

chomp(my @words = <STDIN>);
my %count;
for(@words) {
		$count{$_} += 1;
};
while((my $k, my $v) = each %count) {
		print "$k : $v\n";
}
